home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / PROCED5.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  370b  |  26 lines
  1. PROGRAM procedure_calling_a_procedure;
  2.  
  3. PROCEDURE one;
  4. BEGIN
  5.   WRITELN('This is procedure one');
  6. END;
  7.  
  8. PROCEDURE two;
  9. BEGIN
  10.   one;
  11.   WRITELN('This is procedure two');
  12. END;
  13.  
  14. PROCEDURE three;
  15. BEGIN
  16.   two;
  17.   WRITELN('This is procedure three');
  18. END;
  19.  
  20. BEGIN  (* main program *)
  21.   one;
  22.   WRITELN;
  23.   two;
  24.   WRITELN;
  25.   three;
  26. END. (* of main program *)